home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
t24.src
< prev
next >
Wrap
Text File
|
1991-10-19
|
4KB
|
180 lines
%%HP: T(3)A(D)F(.);
@ T24 game, by Mike Rovak
DIR
PLAY
\<< STD DEC 64
STWS ERASE CLEAR
IFERR 'SAVL'
RCL
THEN CLEAR 1
20
FOR j j
NEXT
ELSE OBJ\->
DROP 'SAVL' PURGE
END 1 20 UD {
# 37d # 5d } {
# 37d # 13d } LINE
{ # 37d # 13d } {
# 93d # 13d } LINE
{ # 93d # 13d } {
# 93d # 5d } LINE
SH3 3 FREEZE { {
"\<-S" LS } { "S\->" RS
} { "FLIP" FLIP } {
"MIX" MIX } {
"SAVE" SAVE } {
"QUIT" QUIT } }
TMENU
\>>
LS
\<< 'LS2' SH4
\>>
RS
\<< 'RS2' SH4
\>>
FLIP
\<< FL2 FL3
\>>
MIX
\<< 1 100
START RAND 3
* IP 1 + MX2
NEXT SH2
\>>
SAVE
\<< 20 \->LIST
'SAVL' STO QUIT
\>>
QUIT
\<< CLEAR 0 MENU
\>>
UD
\<< \-> s f
\<< s f
FOR j 21 j
- PICK j DC
NEXT
\>>
\>>
DC
\<< \-> c n
\<< PICT n DC3
c DC2
\>>
\>>
DC2
\<< \-> c
\<< PIECE c GET
REPL
\>>
\>>
DC3
\<< \-> n
\<< 'L' n GET
\>>
\>>
FL2
\<< 1 5
START LS2
NEXT 4 ROLLD
SWAP ROT 1 5
START RS2
NEXT
\>>
FL3
\<< 2 5 UD 3
FREEZE
\>>
LS2
\<< 20 ROLL
\>>
RS2
\<< 20 ROLLD
\>>
SH2
\<< 1 20 UD 3
FREEZE
\>>
SH3
\<< { # 0d # 0d }
PVIEW
\>>
SH4
\<< \-> p
\<< DEPTH 20
IF >
THEN SH3 1
SWAP
START p
EVAL
NEXT SH2
ELSE p EVAL
SH2
END
\>>
\>>
MX2
\<< \-> n
\<<
CASE 'n==1'
THEN LS2
END 'n==2
'
THEN RS2
END FL2
END
\>>
\>>
L { { # 25d # 0d
} { # 39d # 0d } {
# 53d # 0d } {
# 67d # 0d } {
# 81d # 0d } {
# 95d # 0d } {
# 107d # 8d } {
# 119d # 16d } {
# 119d # 29d } {
# 107d # 37d } {
# 95d # 45d } {
# 81d # 45d } {
# 67d # 45d } {
# 53d # 45d } {
# 39d # 45d } {
# 25d # 45d } {
# 13d # 37d } {
# 1d # 29d } { # 1d
# 16d } { # 13d
# 8d } }
PPAR {
(-6.5,-3.1)
(6.5,3.2) X 0 (0,0)
FUNCTION Y }
PIECE {
GROB 11 11 FF70306010401340124012401240174010403060FF70
GROB 11 11 FF70306010401740144017401140174010403060FF70
GROB 11 11 FF70306010401740144017401440174010403060FF70
GROB 11 11 FF70306010401540154017401440144010403060FF70
GROB 11 11 FF70306010401740114017401440174010403060FF70
GROB 11 11 FF70306010401640114017401540174010403060FF70
GROB 11 11 FF70306010401740144012401140114010403060FF70
GROB 11 11 FF70306010401740154017401540174010403060FF70
GROB 11 11 FF70306010401740154017401440174010403060FF70
GROB 11 11 FF7030601040D840945094509450D94010403060FF70
GROB 11 11 FF7030601040DC40984098409840DD5010403060FF70
GROB 11 11 FF7030601040DC5090509C509440DD5010403060FF70
GROB 11 11 FF7030601040DC5090509C509050DD5010403060FF70
GROB 11 11 FF7030601040D45094509C509050D15010403060FF70
GROB 11 11 FF7030601040DC5094409C509050DD5010403060FF70
GROB 11 11 FF7030601040D85094409C509450DD5010403060FF70
GROB 11 11 FF7030601040DC50905098409440D54010403060FF70
GROB 11 11 FF7030601040DC5094509C509450DD5010403060FF70
GROB 11 11 FF7030601040DC5094509C509050DD5010403060FF70
GROB 11 11 FF7030601040D9401550D5505450D94010403060FF70
GROB 11 11 FF7030601040DD401940D9405840DD5010403060FF70
GROB 11 11 FF7030601040DD501150DD505440DD5010403060FF70
GROB 11 11 FF7030601040DD501150DD505050DD5010403060FF70
GROB 11 11 FF7030601040D5501550DD505050D15010403060FF70
}
END